home *** CD-ROM | disk | FTP | other *** search
/ What Lies Beneath Press Kit / What Lies Beneath Press Kit.iso / pc / What Lies Beneath.dxr / Scripts_6_Menu Help Frame Script.ls < prev    next >
Encoding:
Text File  |  2000-06-22  |  991 b   |  41 lines
  1. property pHowLongToWait, pStartTime
  2. global gInitialMenuHelpOn
  3.  
  4. on beginSprite me
  5.   if gInitialMenuHelpOn then
  6.     pStartTime = the timer
  7.   end if
  8. end
  9.  
  10. on exitFrame
  11.   if gInitialMenuHelpOn then
  12.     if the timer > (pStartTime + (pHowLongToWait * 60)) then
  13.       gInitialMenuHelpOn = 0
  14.       go(#next)
  15.     else
  16.       go(the frame)
  17.     end if
  18.   else
  19.     go(#loop)
  20.   end if
  21. end
  22.  
  23. on getPropertyDescriptionList me
  24.   description = [:]
  25.   addProp(description, #pHowLongToWait, [#default: "15", #format: #integer, #comment: "How Long to Wait in Seconds"])
  26.   return description
  27. end
  28.  
  29. on getBehaviorDescription me
  30.   endChar = offset("--END OF HEADER", me.text)
  31.   endLine = the number of lines in char 1 to endChar of the text of me - 1
  32.   description = line 1 to endLine of the text of me
  33.   repeat with whichLine = endLine down to 1
  34.     if line whichLine of description = EMPTY then
  35.       delete line whichLine of description
  36.     end if
  37.   end repeat
  38.   delete line 1 of description
  39.   return description
  40. end
  41.